home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / nem / nem.exe / RMESF.PLP < prev    next >
Text File  |  1991-08-17  |  2KB  |  83 lines
  1. /* auto pilot program ｢NEM 2.06｣ 1991.4.11 By GOOSE(MAF00070) */
  2. /* %Rmesf { */
  3. /*   [FORUM,LOGPATH,DATE] */
  4. /* 会議室の未読をフォーラム別にダウンする｡
  5. ** ログの格納先は LOGPATH\フォーラム名.mdd(mdd:月日) */
  6.     var FORUMS[128];var ONEFORUM[8];
  7.     %oneforum { [forum] /* 一つのフォーラムにたいする処理 */
  8.     type({GO }|forum|{\n});
  9.     loop({
  10.         wait(ABORTTIME,{Abort},
  11.             {\n＞},{im({No})},
  12.             {\nFORUM>},{im({No})},
  13.             {\n続き (改行で表示},{type({\n});im({Yes})},
  14.             {\nmore>},{type({\n});im({Yes})})
  15.     });
  16.     type({SEND OFF\n});
  17.     loop({
  18.         wait(ABORTTIME,{Abort},
  19.             {\n＞},{im({No})},
  20.             {\nFORUM>},{im({No})},
  21.             {\n続き (改行で表示},{type({\n});im({Yes})},
  22.             {\nmore>},{type({\n});im({Yes})})
  23.     });
  24.     type({MES\n});
  25.     loop({
  26.         wait(ABORTTIME,{Abort},
  27.             {番号 (改行で次頁)\n＞},{type({\n});im({Yes})},
  28.             {\nmore>},{type({\n});im({Yes})},
  29.             {\n＞},{im({No})}
  30.         )
  31.     });
  32.     %logdir LOGPATH|{\}|forum|FTYPE;
  33.     write(logdir,DAYTIME);
  34.     type({MREAD\n});
  35.     receive(logdir);
  36.     loop({
  37.         wait({600},{Abort},
  38.             {\n◆現在未読の発言はありません◆},
  39.                 {wait({3},{im({Yes})},{\n＞},{stoprec;im({No})})},
  40.             {\n＞},{
  41.                 wait({1},);
  42.                 case(@tail(@laststr,{\n})={＞},
  43.                     {Yes},
  44.                         {case(@tail(@laststr,{\n＞\n})={◆次頁はありません◆}|@xc({0d})|@xc({0a})|{＞},
  45.                             {Yes},{stoprec;wait(ABORTTIME,{Abort},{\n＞},{im({No})})},
  46.                             {No},{
  47.                                 type({\n});
  48.                                 wait({3},{im({Yes})},
  49.                                     {\n◆次頁はありませ},
  50.                                         {stoprec;wait(ABORTTIME,{Abort},{\n＞},{im({No})})})
  51.                                 })},
  52.                     {No},{im({Yes})})
  53.             })
  54.         })
  55.     };
  56.  
  57. /* 全フォーラムに対する処理 */
  58.     type({TIME\n});
  59.     wait(ABORTTIME,{Abort},{\n  ご利用時間  },);
  60.     %DAYTIME @tail(@body(@laststr,,{\n  ご利用時間  }),{\n  })|{\n};
  61.     wait(ABORTTIME,{Abort},
  62.         {\n＞},,{\nMAIL>},,{\nHP>},,{\nFORUM>},,{\nBBS>},,{\nCCS(N)>},,{\nLIB>},);
  63.     %DAYTIME CCSLINE|DAYTIME;
  64.     %FTYPE @case(LOGADD={Yes},
  65.         {Yes},{im({.LOG})},{No},{im({.}|DATE)});
  66.     FORUMS:=FORUM;
  67.     loop({
  68.         ONEFORUM:=@head(FORUMS,{,});
  69.         case(ONEFORUM={No},
  70.             {Yes},{im({No})},
  71.             {No},{FORUMS:=@body(FORUMS,{,});
  72.                 oneforum(ONEFORUM);
  73.                 im({Yes})})
  74.     });
  75.     type({SEND ON\n});
  76.     loop({wait(ABORTTIME,{Abort},
  77.         {\n＞},{im({No})},
  78.         {\nFORUM>},{im({No})},
  79.         {\n続き (改行で表示},{type({\n});im({Yes})},
  80.         {\nmore>},{type({\n});im({Yes})})
  81.     });
  82. /* }; */
  83.